Last Ten Visitors

Home > Active Server Pages : Code

asp superexpert
The community of Active Server Pages experts

preferences | bookmarks | help

messages

tutorials

answers

links

articles

jobs

books

software

code

reference

workshops

Last Ten Visitors

This script uses an Application array to store information about the last ten visitors to the Web page. The page displays the visitor's IP address, browser type, and time of visit. To see a demonstration of this click, click "view demo"

Listing 1.0 - lastTen.asp

<%
' Either Create or Get the lastTen Application Array
Application.Lock
IF NOT isArray( Application( "lastTen" ) ) THEN
  DIM dummy( 10, 3 )
  Application( "lastTen" ) = dummy
END IF
  lastTen = Application( "lastTen" )
Application.UnLock

' Move Every Visitor Down in the Array
IF lastTen( 9, 0 ) <> "" THEN
FOR i = 0 TO 9
  lastTen( i, 0 ) = lastTen( i + 1, 0 )
  lastTen( i, 1 ) = lastTen( i + 1, 1 )
  lastTen( i, 2 ) = lastTen( i + 1, 2 )
NEXT
END IF

' Add New Entry
FOR i = 0 TO 9
  IF lastTen( i, 0 ) = "" THEN
    lastTen( i, 0 ) = Request.ServerVariables( "REMOTE_ADDR" )
	lastTen( i, 1 ) = Request.ServerVariables( "HTTP_USER_AGENT" )
	lastTen( i, 2 ) = NOW()
    EXIT FOR
  END IF
NEXT

Application.Lock
Application( "lastTen" ) = lastTen
Application.UnLock

' Display Last Ten Visitors
%>
<center>
<table bgcolor="#ccccc" cellspacing=0 cellpadding=3 border=1>
<tr bgcolor="lightyellow">
  <td>Visitor</td>
  <td>IP Address</td>
  <td>Browser</td>
  <td>Visit Time</td>
</tr>
<% 
FOR i = 0 TO 9 
IF lastTen( i, 0 ) <> "" THEN
%>
<tr>
  <td><small><%=i + 1%></small></td>
  <td><small><%=lastTen( i, 0 )%></small></td>
  <td><small><%=lastTen( i, 1 )%></small></td>
  <td><small><%=lastTen( i, 2 )%></small></td>
</tr>
<%
END IF
NEXT
%>
</table>

Comments

Add Your Comment

Update Code

Advertising Information

superexpert news!
Get the latest Active Server Pages news! Enter your email address to receive superexpert's weekly newsletter.